﻿Module DataAccessConnection
    Public connection As New Data.OleDb.OleDbConnection
    'jfabro 29/09/2011
    Public oracleConnectionString As String = "Data Source=xe;User Id=pav1;Password=pav1;Integrated Security=no;"

    Public Sub openConnection()
        connection.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\GestionDeProyectos\BD_Gestion_Proyectos.accdb;Persist Security Info=True;User ID=admin;Jet OLEDB:Database Password=admin"
        connection.Open()
    End Sub

    Public Sub closeConnection()
        connection.Close()
    End Sub
End Module
